<%

Function sql_cod(valor)

		valor = replace(valor, "'", "")
		
		sql_cod = valor

End Function
%>